(occur-mode-goto-occurrence): Give meaningful error

message if there's nowhere useful to go.

diff --git a/lisp/replace.el b/lisp/replace.el
index 2a4dad983a1012bc05ba7fdd20e46bd4c618c8fb..0b0e56df2fe2df214a780c9842ca1f3b8496205d 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -250,6 +250,8 @@ in the buffer that the occurrences were found in.
                                   (+ 2 (* 2 occur-nlines)))
                                  (t 1)))))
         (pos (nth occur-number occur-pos-list)))
+    (or pos
+       (error "No occurrence on this line"))
     (pop-to-buffer occur-buffer)
     (goto-char (marker-position pos))))
 \f